home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win95 Start Menu 2.xpl < prev    next >
Text File  |  2003-11-19  |  4KB  |  113 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Start menu\Windows 95"
  5. "UIPATH 2"="Appearance\Start menu\Windows NT"
  6. "UIPATH 3"="Appearance\Start menu\Windows 98"
  7. "UIPATH 4"="Appearance\Start menu\Windows ME"
  8. "UIPATH 5"="Appearance\Start menu\Windows 2000"
  9. "NAME"="Cascaded Special Folders"
  10. "VERSION"="2.04"
  11. "OSVERSION"=111110"
  12. "LANGUAGE"="VBScript"
  13. "DESCRIPTION 1"="Use this plug-in to show some of the "special" folder of Window in cascading menu so you can easily access them. These items will appear on top of your Start Menu."
  14. "DESCRIPTION 2"="NOTE: Do not activate ANY of these options if you are using an HP OfficeJet and want to use the scanner software that comes with it. It seems the software of this HP Combo does not like the directories X-Setup creates."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="IE6+ fix found by Neil T."
  19.  
  20.  
  21. 'Declaration of some constants
  22. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Start Menu"
  23. sPath=""
  24.  
  25.   sV1="Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
  26.        sV2="Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}"
  27.     sV3="Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}"
  28. sV4="Scheduled Tasks.{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  29.         sV5="History.{FF393560-C2A7-11CF-BFF4-444553540000}"
  30.        sV5file="History.{FF393560-C2A7-11CF-BFF4-444553540000}\desktop.ini"
  31.   sV6="Subscriptions.{F5175861-2688-11D0-9C5E-00AA00A45957}"
  32.  
  33. 'Called when the Plugin is started
  34. SUB Plugin_Initialize 
  35.  sPath=RegReadValue(sP)
  36.  if FolderExists(sPath) then
  37.     if right(sPath,1)<>"\" then sPath=sPath & "\"
  38.  
  39.     Call SetUIElement(1,"Show cascading 'Control Panel' in Start menu")
  40.     Call ReadIt(1,sPath & sV1)
  41.  
  42.     Call SetUIElement(2,"Show cascading 'Printers' in Start menu")
  43.     Call ReadIt(2,sPath & sV2)
  44.  
  45.     Call SetUIElement(3,"Show cascading 'Recycle Bin' in Start menu")
  46.     Call ReadIt(3,sPath & sV3)
  47.  
  48.     Call SetUIElement(4,"Show cascading 'Scheduled Tasks' in Start menu")
  49.     Call ReadIt(4,sPath & sV4)
  50.  
  51.     Call SetUIElement(5,"Show cascading 'History' in Start menu")
  52.     Call ReadIt(5,sPath & sV5)
  53.  
  54.     Call SetUIElement(6,"Show cascading 'Subscriptions' in Start menu")
  55.     Call ReadIt(6,sPath & sV6)
  56.  else
  57.     Disable
  58.  end if
  59.  
  60. END SUB
  61.  
  62. 'Called when the Plugin should validate the Data the user has entered
  63. SUB Plugin_CheckData(ElementIndex)
  64. END SUB
  65.  
  66. 'Called when the Plugin should apply the changes
  67. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  68.  Call WriteIt(1, sPath & sV1)
  69.  Call WriteIt(2, sPath & sV2)
  70.  Call WriteIt(3, sPath & sV3)
  71.  Call WriteIt(4, sPath & sV4)
  72.  
  73.  'IE6+ fix!
  74.  If GetUIElementEx(5)=true then
  75.     Call WriteIt(5, sPath & sV5)
  76.     Call IniWriteValue(sPath & sV5file,".ShellClassInfo","UICLSID","{7BD29E00-76C1-11CF-9DD0-00A0C9034933}")
  77.     Call FileSetAttribute(sPath & sV5file,"H+") 
  78.  else
  79.     If FileExists(sPath & sV5file) then 
  80.        Call FileSetAttribute(sPath & sV5file,"H-") 
  81.        Call FileDelete(sPath & sV5file)
  82.        Call WriteIt(5, sPath & sV5)
  83.     end if
  84.  end if
  85.  
  86.  Call WriteIt(6, sPath & sV6)
  87.  
  88.  
  89. END SUB
  90.  
  91.  
  92. 'Called when the Plugin is about to be removed from memory
  93. SUB Plugin_Terminate
  94. END SUB
  95.  
  96.  
  97. Sub ReadIt(ITEM,FILENAME)
  98.  if FolderExists(FILENAME) then 
  99.     Call SetUIElementEx(ITEM,true)
  100.  end if
  101. End Sub
  102.  
  103. Sub WriteIt(ITEM,FILENAME)
  104.  if GetUIElementEx(ITEM)=true then
  105.     if FolderExists(FILENAME)=false then
  106.        Call FolderCreate(FILENAME)
  107.     end if
  108.  else
  109.     if FolderExists(FILENAME)=true then       
  110.        Call FolderDelete(FILENAME)
  111.     end if
  112.  end if
  113. End Sub